﻿
Partial Class Pages_Forum
    Inherits System.Web.UI.Page



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        rptforum.DataSource = New ForumDAO().GetAllForum()
        rptforum.DataBind()

    End Sub



    Protected Sub btnsendmessage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsendmessage.Click




        Dim f As New Forum

        f.Name = txtName.Text
        f.Email = txtEmail.Text
        f.Header = txtHeadermessage.Text
        f.Texten = txtMessage.Text
       

        Dim cm As New ForumDAO()
        cm.createNewMessage(f)


        Response.Redirect("Forum.aspx")


    End Sub
End Class
